home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / e / ddmoduls.lha / dd_Modules / dd_gui / dd_window_instance.e < prev    next >
Text File  |  1995-08-15  |  740b  |  43 lines
  1. OPT MODULE
  2.  
  3. MODULE '*dd_window'
  4. MODULE 'intuition/intuition'
  5. MODULE 'utility/tagitem'
  6.  
  7. EXPORT OBJECT mainwindow OF dd_window
  8. ENDOBJECT
  9.  
  10. EXPORT PROC new() OF mainwindow
  11.  
  12.   self.window:=OpenWindowTagList(NIL,[
  13.     WA_FLAGS,
  14.      WFLG_DEPTHGADGET OR
  15.      WFLG_SIZEGADGET OR
  16.      WFLG_SIZEBBOTTOM OR
  17.      WFLG_DRAGBAR OR
  18.      WFLG_CLOSEGADGET,
  19.     WA_IDCMP,
  20.      IDCMP_CLOSEWINDOW OR
  21.      IDCMP_SIZEVERIFY OR
  22.      IDCMP_REFRESHWINDOW,
  23.     WA_HEIGHT,200,
  24.     WA_WIDTH,300,
  25.     WA_TITLE,'dd_window test',
  26.     TAG_DONE,NIL])
  27.  
  28.   -> Call the dd_window class constructor.
  29.   SUPER self.new()
  30.  
  31. ENDPROC
  32.  
  33. EXPORT PROC end() OF mainwindow
  34.  
  35.   -> Call the dd_window class destructor.
  36.   SUPER self.end()
  37.  
  38.   CloseWindow(self.window)
  39.   self.window:=0
  40. ENDPROC
  41.  
  42.  
  43.